home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-03
/
fglqbx10.zip
/
09-07.BAS
< prev
next >
Wrap
BASIC Source File
|
1991-06-06
|
571b
|
26 lines
REM $INCLUDE: 'fastgraf.bi'
DEFINT A-Z
Hello$ = "t"+CHR$(1)+"h"+CHR$(2)+"e"+CHR$(3)+"r"+CHR$(4)+"e"+CHR$(5)
Hello$ = Hello$+"h"+CHR$(1)+"e"+CHR$(2)+"l"+CHR$(3)+"l"+CHR$(4)+"o"+CHR$(5)
Image$ = "T"+CHR$(0)+CHR$(0)+CHR$(1)+CHR$(0)+CHR$(1)+CHR$(0)+CHR$(1)+CHR$(0)+CHR$(1)
Image$ = Image$+"H"+CHR$(0)+CHR$(0)+CHR$(1)+CHR$(0)+CHR$(1)+CHR$(0)+CHR$(1)+CHR$(0)+CHR$(1)
OldMode = FGgetmode
FGsetmode 3
FGcursor 0
FGlocate 12, 37
FGdrwimage Hello$, 10, 2
FGwaitkey
FGdrwimage Image$, 10, 2
FGwaitkey
FGsetmode OldMode
FGreset
END